home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00010_rollsprite handler.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  634 b   |  21 lines
  1. --on rollSprite spritechannel,startcast,endcast
  2. --  global gpausetime
  3. --  if startcast < endcast then
  4. --    puppetsprite spritechannel,true
  5. --    --puppetSound 2, "swoosh.aif"
  6. --    repeat with i = startcast to endcast
  7. --      repeat with j = 1 to gpausetime
  8. --      end repeat
  9. --      set the castnum of sprite spritechannel to i
  10. --      updatestage
  11. --    end repeat
  12. --  else
  13. --    --puppetSound 2, "swoosh.aif"
  14. --    repeat with i = startcast down to endcast
  15. --      repeat with j = 1 to gpausetime
  16. --      end repeat
  17. --      set the castnum of sprite spritechannel to i        
  18. --      updatestage
  19. --    end repeat
  20. --  end if
  21. --end